home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_B.d64 / simple sound (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  255 lines
  1. 0 print"[147]"
  2. 1 goto 90
  3. 39 rem ** data **
  4. 40 rem *stuecke 1&2*
  5. 41 data9,2,0,3,0,0,240,12,2,0,4,0,0,192,16,2,0,6,0,0,64,0,30,243,31
  6. 42 data0,0,0,58,0,0,69,7,81,58,6,133,78,7,81,58,0,0,87,6,133,58,0,0,78,7,81,58
  7. 43 data0,0,69,0,0,0,0,0,58,6,133,0,0,0,58,6,133,0,7,81,0,0,0,58,0,0,69,8,180,58
  8. 44 data8,55,78,8,180,58,0,0,87,8,180,58,0,0,78,5,207,58,0,0,69,5,207,0,0,0,65,6
  9. 45 data133,0,0,0,58,6,133,0,0,0
  10. 46 rem *paddles*
  11. 47 data120,169,128,32,236,207,142,60,3,140,61,3,173,0,220,41,12,141,159,2,169
  12. 48 data64,32,236,207,142,62,3,140,63,3,173,1,220,41,12,141,160,2,169,255,141
  13. 49 data2,220,88,96,141,0,220,9,192,141,2,220,162,0,202,208,253,174,25,212,172
  14. 50 data 26,212,96
  15. 51 rem *sound3*
  16. 52 data17,103,2,21,237,2,25,100,4,25,100,1,23,59,1,21,237,1,19,137,1,17,103,4
  17. 53 data19,137,1,19,137,1,16,109,1,13,10,1,25,100,1,25,100,1,21,237,1
  18. 54 data17,103,1,19,137,1,19,137,1,16,109,1,13,10,1,25,100,1
  19. 55 data25,100,1,21,237,1,17,103,1,17,103,1,19,137,1,21,237,1
  20. 56 data23,59,1,25,100,4,25,100,1,23,59,1,21,237,1,19,137,1,17,103,4,-1,-1,0
  21. 90 gosub60001:rem variabeldef.
  22. 100 gosub50210:rem abrufbeispiel
  23. 49998 end
  24. 49999 rem ****soundstuecke****
  25. 50000 rem *puppe*
  26. 50001 pokesi+24,15:pokesi+3,15:pokesi+2,15:pokesi+5,0*16+0:pokesi+6,15*16
  27. 50002 pokesi+4,65
  28. 50003 fori=250to0step-2:pokesi+1,40:pokesi,i:nexti
  29. 50004 fori=150to0step-4:pokesi+1,40:pokesi,i:nexti:pokesi+4,0:return
  30. 50005 rem *gewehrschuss*
  31. 50010 fori=0to24:pokesi+i,0:next
  32. 50011 fori=15to0step-1:pokesi+24,i:pokesi+5,15:pokesi+6,0:pokesi+1,40
  33. 50012 pokesi,200:pokesi+4,129:nexti:pokesi+4,0:pokesi+5,0:return
  34. 50014 rem *motoren s(24,1)*
  35. 50015 fori=1to24:pokesi+i,s1(i):next
  36. 50016 pokesi+4,65:pokesi+11,65:pokesi+18,65:return
  37. 50017 rem *droehnen s(24,1)*
  38. 50020 fori=1to24:pokesi+i,s1(i):next
  39. 50021 pokesi+4,0:pokesi+65,77:pokesi+18,65:return
  40. 50023 rem *rauschleiter*
  41. 50025 fori=1to24:pokesi+i,0:next
  42. 50026 pokesi+24,2:pokesi+6,255:pokesi+4,129:pokesi+13,255:pokesi+11,129
  43. 50027 fori=1to50:pokesi+1,5:pokesi+1,80-i:foru=1to60:rem bei 60 ev. timechange
  44. 50028 nextu,i:pokesi+5,10:pokesi+6,0:return
  45. 50029 rem *explosion*
  46. 50030 fori=1to24:pokesi+i,0:next
  47. 50031 pokesi+24,2:pokesi+6,255:pokesi+4,129:pokesi+13,255:pokesi+11,129
  48. 50032 pokesi+1,0:pokesi+5,0:pokesi+24,15:pokesi+1,1:pokesi+5,11:pokesi+6,0
  49. 50033 fori=1to150:next:pokesi+12,9:pokesi+13,0:pokesi+19,10:pokesi+18,129:return
  50. 50035 fori=1to24:pokesi+i,0:next
  51. 50036 pokesi+24,2:pokesi+6,255:pokesi+4,129:pokesi+13,255:pokesi+11,129
  52. 50037 pokesi+1,0:pokesi+5,0:pokesi+24,15:pokesi+1,1:pokesi+5,11:pokesi+6,0
  53. 50038 fori=1to150:next:pokesi+12,9:pokesi+13,0:pokesi+19,10:pokesi+18,129
  54. 50039 forw=1to80:nextw:a=30
  55. 50040 foru=1to16:fori=1to40:nexti:pokesi+15,5:pokesi+8,a
  56. 50041 forw=1to80:nextw
  57. 50042 pokesi+15,3:pokesi+8,a+20:a=a-1:nextu:pokesi+4,0:pokesi+11,0:pokesi+18,0
  58. 50043 fori=1to300:next:return
  59. 50044 rem *sounddemo*
  60. 50045 fori=2to23:pokesi+i,0:next
  61. 50046 pokesi+24,15:pokesi+1,1:pokesi+5,11
  62. 50047 pokesi+19,10:pokesi+4,17:pokesi+20,255:pokesi+18,33:pokesi+12,8:pokesi+13,0
  63. 50048 foru=1to4:fori=0to95step3
  64. 50049 pokesi+8,s2(i+1):pokesi+7,s2(i+2)
  65. 50050 pokesi+11,33
  66. 50051 ifs2(i)=0thenw=0:goto50053
  67. 50052 w=1
  68. 50053 ifu>2thenpokesi+1,s2(i):pokesi+15,s2(i)+w:b=28:goto50055
  69. 50054 forc=1to30:nextc
  70. 50055 rem hier ev. einlage bspw. print xx
  71. 50056 fora=1tob:nexta:pokesi+11,0:nexti,u:fori=1to50:nexti:return
  72. 50059 rem**trommel**
  73. 50060 fori=1to24:pokesi+i,0:nexti
  74. 50061 pokesi+24,15:pokesi+6,240:pokesi,130:pokesi+5,110:pokesi+23,240:pokesi+4,33
  75. 50062 return
  76. 50064 rem**rauschen 2**
  77. 50065 fori=0to24:pokesi+i,0:nexti
  78. 50066 pokesi+24,15:pokesi+6,240:pokesi,180:pokesi+5,8:pokesi+23,240:pokesi+4,129
  79. 50067 return
  80. 50069 rem**schlaege schnell**
  81. 50070 fori=0to24:pokesi+i,0:nexti
  82. 50071 pokesi+24,15:pokesi+6,240:pokesi,180:pokesi+5,8:pokesi+23,240:pokesi+4,33
  83. 50072 return
  84. 50074 rem**vorbeirauschen**
  85. 50075 fori=0to24:pokesi+i,0:next
  86. 50076 poke54296,15:pokesi+1,30:poke54280,1:poke54287,100:poke54277,16*15+0
  87. 50077 pokesi+6,16*8+13:pokesi+4,129:poke54290,23
  88. 50078 fori=0to8000:next:pokesi+4,128:poke54290,16:return
  89. 50079 rem*flipper 1*
  90. 50080 pokesi+24,15:pokesi+6,240:pokesi+23,240
  91. 50081 fori=65535to4000step-3000
  92. 50082 fh(1)=int(i/256):fl(1)=i-256*fh(1)
  93. 50083 pokesi,fl(1):pokesi+1,fh(1):pokesi+4,33
  94. 50084 next:pokesi+4,0:pokesi+11,0:return
  95. 50089 rem*flipper 2*
  96. 50090 fori=0to24:pokesi-i,0:next
  97. 50091 pokesi+24,15:pokesi+6,240:pokesi+23,240:pokesi+4,33
  98. 50092 fori=0to65535step3000
  99. 50093 fh=int(i/256):fl=i-256*fh
  100. 50094 pokesi,fl:pokesi+1,fh
  101. 50095 next:pokesi+4,0:return
  102. 50099 rem*tut-signale*
  103. 50100 fori=0to24:pokesi+i,0:next
  104. 50101 fori=1to3
  105. 50102 pokesi+24,15:pokesi+6,240:pokesi,98:pokesi+1,10:pokesi+4,33
  106. 50103 forii=1to250:nextii:pokesi+4,0:nexti:pokesi+4,0
  107. 50104 fori=1to2
  108. 50105 pokesi+24,10:pokesi+6,240:pokesi,27:pokesi+1,4:pokesi+4,33
  109. 50106 forii=1to375:next:pokesi+4,0:next:pokesi+4,0
  110. 50107 return
  111. 50109 rem*flipper 3*
  112. 50110 fori=1to24:pokesi+i,0:next
  113. 50111 pokesi+3,13:pokesi+2,15
  114. 50112 pokesi+5,3*16+15:pokesi+6,9
  115. 50113 fori=15to0step-1
  116. 50114 pokesi+24,i
  117. 50115 forii=200to100step-5
  118. 50116 pokesi+1,ii:pokesi+2,ii
  119. 50117 pokesi+4,65
  120. 50118 nextii,i
  121. 50119 pokesi+4,0
  122. 50120 return
  123. 50124 rem**pfeifleiter**
  124. 50125 fori=0to23:pokesi+i,0:nexti
  125. 50126 pokesi+3,13:pokesi+2,15
  126. 50127 pokesi+5,3*16+15:pokesi+6,9
  127. 50128 pokesi+24,15
  128. 50129 pokesi+1,255-b:pokesi,b
  129. 50130 pokesi+4,65
  130. 50131 b=b+2
  131. 50132 ifb>200thenpokesi+4,0:return
  132. 50133 goto50129
  133. 50134 rem*flipper 4*
  134. 50135 fori=0to23:pokesi+i,0:nexti
  135. 50136 pokesi+3,13:pokesi+2,15
  136. 50137 pokesi+5,3*16+15:pokesi+6,9
  137. 50138 pokesi+24,15:fori=1to10:forx=200to100step-10.
  138. 50139 pokesi+1,250-x:pokesi,x
  139. 50140 pokesi+4,65
  140. 50141 nextx,i:pokesi+4,0:return
  141. 50144 rem*akustikkurve*
  142. 50145 fori=0to24:pokesi+i,0:next
  143. 50146 poke54296,15
  144. 50147 pokesi+6,240:pokesi+4,17:a=-2:b=183:c=100:pokesi+4,33
  145. 50148 foru=10to100step10:a=a+2:b=b-3:ifu=20thena=60
  146. 50149 fori=atobstepu/10:pokesi+1,i/4:pokesi+1,i/3:pokesi+1,i/6:nexti
  147. 50150 fori=btocstep-1.3:pokesi+1,int(i/4):pokesi+1,int(i/3):pokesi+1,int(i/6):nexti
  148. 50151 fori=ctobstepu/10:pokesi+1,i/4:pokesi+1,i/3:pokesi+1,i/6:nexti
  149. 50152 fori=btoastep-u/10:pokesi+1,i/4:pokesi+1,i/3:pokesi+1,i/6:nexti,u:pokesi+1,0:return
  150. 50154 rem *fallendes objekt*
  151. 50155 fori=0to24:pokesi+i,0:next
  152. 50156 pokesi+24,15:pokesi+6,15*16
  153. 50157 fori=80to10step-1:pokesi+1,i:pokesi+4,17
  154. 50158 foru=0to10:nextu,i:pokesi+24,0:return
  155. 50159 rem*fehlschlag*
  156. 50160 fori=0to24:pokesi+i,0:next:l=15
  157. 50161 fori=60to48step-2:pokesi+24,l:pokesi+6,15*16:pokesi+1,i:pokesi+4,17
  158. 50162 foru=0to100:nextu:l=l-1:nexti:pokesi+24,0:return
  159. 50164 rem*gefahr/alarm*
  160. 50165 fori=0to24:pokesi+i,0:nexti
  161. 50166 fori=1to5:l=10:foru=70to100step2:pokesi+24,l:pokesi+6,15*16:pokesi+1,u
  162. 50167 pokesi+4,33:l=l+1:ifl>15thenl=15
  163. 50168 nextu,i:pokesi+24,0:return
  164. 50169 rem*alarm+takt*
  165. 50170 fori=0to24:pokesi+i,0:nexti:u=0
  166. 50171 pokesi+7,9:pokesi+10,3:pokesi+13,240:pokesi+22,30:pokesi+23,243
  167. 50172 pokesi+24,31:pokesi+11,65:pokesi+1,140:pokesi+2,2:pokesi+3,2
  168. 50173 pokesi+5,5:pokesi+6,255:pokesi+4,65
  169. 50174 fori=30to120step6:pokesi+1,i:nexti
  170. 50175 u=u+1:ifu>8thenreturn
  171. 50176 fori=120to20step-6:pokesi+1,i:nexti:goto50174
  172. 50179 rem*sound3*
  173. 50180 fori=0to24:pokesi+i,0:nexti
  174. 50181 pokesi+24,15:pokesi+3,13:pokesi+2,15:pokesi+5,15+3*16:pokesi+6,9:u=0
  175. 50182 ifs3(u,1)=-1thenreturn
  176. 50183 pokesi+1,s3(u,1)/2:pokesi,s3(u,2)/2:pokesi+4,33
  177. 50184 fori=1tos3(u,3)*230:nexti:pokesi+4,0:u=u+1:goto50182
  178. 50189 rem*sieg*
  179. 50190 fori=0to23:pokesi+i,0:nexti
  180. 50191 pokesi+24,15:pokesi+5,21:pokesi+12,21:pokesi+6,0:pokesi+13,0
  181. 50192 fori=100to10step-10:foru=255to0step-10
  182. 50193 pokesi+4,0:pokesi+11,0:pokesi+1,i:pokesi,u:pokesi+7,2*i:pokesi+8,u
  183. 50194 pokesi+4,17:pokesi+11,33:nextu,i:return
  184. 50199 rem*akkord1*
  185. 50200 pokesi+4,0:pokes2+4,0:pokes3+4,0
  186. 50201 pokesi+5,16*0+1:pokesi+6,16*13+10
  187. 50202 pokes2+5,16*0+1:pokes2+6,16*13+10
  188. 50203 pokes3+5,16*0+1:pokes3+6,16*13+10
  189. 50204 pokesi+23,0:pokesi+24,15:pokesi,37:pokesi+1,15:pokes2,154:pokes2+1,21:pokes3,177
  190. 50205 pokes3+1,25:pokesi+4,33:fori=0to400:next:pokes2+4,33:fori=0to400:next:pokes3+4,33
  191. 50206 fori=0to500:next:pokes1+4,32:pokes2+4,32:pokes3+4,32:pokesi+22,4:pokesi+21,226
  192. 50207 pokesi+4,0:return
  193. 50209 rem*akkord2*
  194. 50210 pokesi+4,0:pokes2+4,0:pokes3+4,0
  195. 50211 pokesi+5,16*0+2:pokesi+6,16*15+12
  196. 50212 pokes2+5,16*0+2:pokes2+6,16*15+12
  197. 50213 pokes3+5,16*0+2:pokes3+6,16*15+12
  198. 50214 pokesi+23,0:pokesi+24,15:pokesi,38:pokesi+1,15:pokes2,154:pokes2+1,21:pokes3,177
  199. 50215 pokes3+1,25:pokesi+4,33:fori=0to600:next:pokes2+4,33:fori=0to600:next:pokes3+4,33
  200. 50216 fori=0to500:next:pokes1+4,32:pokes2+4,32:pokes3+4,32:pokesi+22,4:pokesi+21,226
  201. 50217 pokesi+4,0:return
  202. 60000 rem --variabeln festlegen--
  203. 60001 v=53248:si=54272:s2=54279:s3=54286
  204. 60002 dims1(24):dims2(96):dims3(39,3):rem stuecke _2
  205. 60003 fori=0to24:reads1(i):nexti
  206. 60004 fori=0to95:reads2(i):nexti:u=0
  207. 60005 fori=53182to53247:reada:pokei,a:nexti:rem paddles masch.
  208. 60007 reads3(u,1):reads3(u,2):reads3(u,3):ifs3(u,1)<>-1thenu=u+1:goto60007
  209. 60498 return
  210. 60499 rem*** verzoegerung ***
  211. 60500 fori=1to2000:next:return
  212. 60600 poke53280,0:poke53281,0
  213. 60601 print"[147][158]                              "
  214. 60602 print"            game over         "
  215. 60603 print"                              "
  216. 60604 print"noch ein spiel (j/n)           "
  217. 60605 getaa$:ifaa$="j"thenprint"[147]":return
  218. 60606 ifaa$="n"thenprint"bis zum naechsten mal !":end
  219. 60607 goto60605
  220. 63000 rem anleitung spaeter loeschen
  221. 63001 rem ***** anleitung *************
  222. 63002 rem * -paddles masch. programm: *
  223. 63003 rem * zeilen:91,46,47-50        *
  224. 63004 rem * abfrage: port1            *
  225. 63005 rem * peek(830) : paddle 1      *
  226. 63006 rem * peek(831) : paddle 2  255)*
  227. 63007 rem * peek(672) : tasten(12,8,4)*
  228. 63008 rem * abfrage: port2            *
  229. 63009 rem * peek(828) : paddle 1      *
  230. 63010 rem * peek(829) : paddle 2      *
  231. 63011 rem * peek(830) : tasten(12,8,4)*
  232. 63012 rem * -joystick-port 1          *
  233. 63013 rem * if(peek(56320)and1)=0 :   *
  234. 63014 rem * oben                      *
  235. 63015 rem * if(peek(56320)and2)=0 :   *
  236. 63016 rem * unten                     *
  237. 63017 rem * if(peek(56320)and4)=0 :   *
  238. 63018 rem * links                     *
  239. 63019 rem * if(peek(56320)and8)=0 :   *
  240. 63020 rem * rechts                    *
  241. 63021 rem * if(peek(56320)and16)=0:   *
  242. 63022 rem * knopf                     *
  243. 63023 rem * port 2  56321_56320       *
  244. 63024 rem *****************************
  245. 63054 rem *****************************
  246. 63055 rem * befehle/routinen          *
  247. 63056 rem *---------------------------*
  248. 63057 rem * wait198,1  : wartet auf   *
  249. 63058 rem *              tastendruck  *
  250. 63059 rem * peek(197)  : ergibt kode  *
  251. 63060 rem * peek(203)  : der gerade   *
  252. 63061 rem *              gedrueckten  *
  253. 63062 rem *              taste        *
  254. 63063 rem *****************************
  255.